home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler4.Sym < prev    next >
Encoding:
Text File  |  1994-09-15  |  3.2 KB  |  10 lines  |  [TEXT/.Ob4]
  1. ˜Ò˛Δ∂Kepler4GalaxyÜõ¬∂KeplerGraphs |ObjectDesc
  2. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  3. ¸{selfıñ≥Filesreseof tRider˚{R Read
  4. ¸{self˚{R WritenofptsStar
  5. pConstellationnext tConsDesc
  6. ¸{self˚{R Read
  7. ¸{selfState
  8. ¸{self˚{R     WriteGraphG |GalaxyDesc
  9. ¸{self˚{F Draw
  10. ¸{self˚{R Read
  11. ¸{self˚{R WriteIconµï√∂KeplerFrames
  12.  cmd8par ÿtButtonDesc
  13. Button¸{B    ˚{keys Execute
  14. ¸{BFrame˚{F˙{x˘{y    ¯{keys HandleMouse
  15. ¸{B˚{R     Read
  16. ¸{B˚{R 
  17. WriteêØâflFonts Font ÿfnt‹ ‡x!!!IconDesc
  18. ¸{I˚{F !Draw
  19. ¸{I    ˚{keys !Execute
  20. ¸{I˚{R !Read
  21. ¸{I˚{R !Write
  22.  NewButton
  23.      NewGalaxy
  24. 
  25. NewIcon
  26.  UpdateButtonܵàflDisplay"Frame"dsc"nextX
  27. Y WH
  28. "¸{f x##FrameMsg#˚{msg     $Handler$handle t%%FrameDescx0y0scale ext %$|&& &PortDesc
  29. ¸{P˚{x&CX
  30. ¸{P˚{y&CY
  31. ¸{P˚{X&Cx
  32. ¸{P˚{Y&Cy
  33. ¸{P˚{x˙{y˘{r¯{col˜{mode &DrawCircle
  34. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode &DrawEllipse
  35. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode &DrawLine
  36. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode &DrawRect
  37. ¸{P˚{x˙{y '˘{s ˜{fontˆ{colı{mode &    DrawString
  38. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode &    
  39. FillCircle
  40. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode &
  41. FillQuad
  42. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode & FillRect&xyrefcntsel next x(((StarDesc
  43. ¸{self˚{P (Draw
  44. ¸{self˚{R (Read
  45. ¸{self˚{R (Write(consstars seltime
  46. ¸{op˚{G˙{O˘{P     )Notifier)notify p**
  47. *GraphDesc
  48. ¸{G˚{op * All
  49. ¸{G˚{o * Append
  50. ¸{G˚{from˙{dx˘{dy *
  51. CopySelection
  52. ¸{G˚{o *Delete
  53. ¸{G˚{minstate *DeleteSelection
  54. ¸{G˚{P *Draw
  55. ¸{G˚{p *FlipSelection
  56. ¸{G˚{s˙{dx˘{dy *    Move
  57. ¸{G˚{dx˙{dy *
  58. MoveSelection
  59. ¸{G˚{R *Read
  60. ¸{G˚{o * SendToBack
  61. ¸{G˚{R *Write
  62. ¸{G˚{R * WriteSel*! &$p++ +DisplayPortDesc
  63. +,DisplayPort,¸{P˚{x˙{y˘{r¯{col˜{mode +DrawCircle
  64. ,¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode +DrawEllipse
  65. ,¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode +DrawLine
  66. ,¸{P˚{x˙{y -˘{s ˜{fontˆ{colı{mode +DrawString
  67. ,¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode + FillRect$G(col*grid +,|...FrameDesc
  68. ¸{F˚{ch . Consume
  69. ¸{F˚{x˙{y    ˘{keys .
  70. EditFrame
  71. ¸{F˚{newY . Extend
  72. ¸{F˚{p . Invert
  73. ¸{F .
  74. Neutralize
  75. ¸{F˚{newY .Reduce
  76. ¸{F˚{X˙{Y˘{W¯{H .Restore
  77. ¸{F˚{x˙{y    ˘{keys .TrackMouse.
  78.  /Name/name height"minX$maxX&minY(maxY0Font0,raster0 4|11FontDesc 1"% |22Bytes02